home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / divers / fullsize.e < prev    next >
Text File  |  1994-05-02  |  1KB  |  42 lines
  1. /*============================================
  2.  = FullSize v0.0 © 1994 NasGûl
  3.  ============================================*/
  4. MODULE 'dos/dos'
  5. DEF firstdir[80]:STRING
  6. DEF fullsize=0
  7. DEF numfile=0
  8. DEF numdir=0
  9. PROC main() /*"main()"*/
  10.     StrCopy(firstdir,arg,ALL)
  11.     p_LookDir(firstdir)
  12.     WriteF('\n\e[1m\e[31mNumber of File(s) :\e[33m\d\e[0m\n',numfile)
  13.     WriteF('\e[1m\e[31mNumber of Dir(s)  :\e[33m\d\e[0m\n',numdir)
  14. ENDPROC
  15. PROC p_LookDir(curdir) /*"p_LookDir(curdir)"*/
  16.   DEF info:fileinfoblock,lock
  17.   DEF currentdir[256]:STRING,pv[256]:STRING
  18.   IF lock:=Lock(curdir,-2)
  19.     NameFromLock(lock,currentdir,256)
  20.     AddPart(currentdir,'',256)
  21.     IF Examine(lock,info)
  22.       IF info.direntrytype>0
  23.         WHILE ExNext(lock,info)
  24.             IF info.direntrytype>0
  25.               StringF(pv,'\s\s',currentdir,info.filename)
  26.               INC numdir
  27.               p_LookDir(pv)
  28.             ELSE
  29.               fullsize:=fullsize+info.size
  30.               WriteF('\b\e[1m\e[31mFullSize v0.0 © 1994 NasGûl:\e[1m\e[32m\d \e[1m\e[0mOctets.',fullsize)
  31.               INC numfile
  32.             ENDIF
  33.         ENDWHILE
  34.       ELSE
  35.       ENDIF
  36.     ENDIF
  37.     UnLock(lock)
  38.   ELSE
  39.     WriteF('What ?!?\n')
  40.   ENDIF
  41. ENDPROC
  42.